

ROUTINES 










CP SERVICE ROUTINE USAGE &^WRAMETER SPECIFICATIONS 




Pagt , .’sS i 


Parameter Value Convers i ons/Ext ract 1 ons - D M K C V T 


C P Module 


D M K C V T 


Entry Polnt(s) 

| Functlon(s) 

► 

| Input Req'ts 

h 

► 

| Output Values 

i- 

f 

| Comments 

DMKCVTBH 

Convert Binary Data 
to Printable HEX 

R1=B1nary Data 
R14=Return Addr 

R0 f R 1 =EBCDIC 

N/A 

DMKCVTHB 

Convert HEX Data To 
Binary Format 

RO=Data Length 

R1=Addr of Data 
R14=Return Addr 

R1=B1nary Data 

I 

CC Settings: 
0=Convert OK 

1 =Error 

DMKCVTDB 

Convert Decimal Field 
To Binary Data 

RO=Data Length 

R1=Addr of Data 
R14-Return Addr 

R1=Conta1ns Binary 
Data 

CC Settings: 
0=Convert OK 

1 =Error 

DMKCVTBD 

1 Convert Binary Field 
To Dblwrd Decimal 

1 R1=Conta1ns Binary 
| Data 

R0 f R 1 =Conta 1 n the 

Decimal Value 

N/A 

DMKCVTDT 

Convert Date/Time To 
EBCDIC Data Format 

R 1 *Addr of Buffer To 
Contain DATE Value 
R2=Addr of Buffer to 

MM : DO : Y y 

HH : MM : S S 

If a Clock Error 
Occurs Then a 
CVT001 ABEND 


NOTE: Condition Codes Differ Between Entry Point Functions 
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CP SERVICE ROUTINE USAGE ft PARAMETER SPECIFICATIONS 


Parameter Value Convers i ons/Extract 1 ons 


D M K S C N 


Entry Polnt(s) 

»- 

| Functlon(s) 

i- 

f 

| Input Req'ts 

f. 

| Output Values 

t- 

f 

| Comments 

DMKSCNRU 

Locate CP Real I/O 
Blocks for given Real 
Device Addr 

R 1 =Addr (CUU) Format 
R14=Return Addr 

R6=RCHBL0K Addr 

R7 = RCUBLOK Addr 
R8=RDEVBL0K Addr 

CC Settings: 

0= A 1 1 Blocks OK 
1=Not All Found 

DMKSCNVU 

, 

Locate CP Virtual I/O 
Blocks for given Vlrt 
Device Addr 

R 1 =Addr (CUU) Format 

R 1 1 =VMBLOK Addr 
R14=Return Addr 

R6= VCHBLOK Addr 
R7=VCUBL0K Addr 
R8=VDEVBL0K Addr 

CC Settings: 
0=A 1 1 Blocks OK 

1 =Not a 1 1 Found 

DMKSCNDC 

Locate RDEVBLOK Addr 
For Specific SYSOWND 
Index Value 

RO=CCPD Value 
R14=Return Addr 

R8-RDEVBL0K Addr 

0=Block Found OK 
1 =Not found . . . 

DMKSCNVS 

Locate RDEVBLOK Addr 
For Specific VOLSER 
Value 

ROLength of Field 

R 1 =Addr of VOLSER 
R14=Return Addr 

R 1 =RDEVBLOK Addr 

0=Block Found OK 
1 =Not found . . . 

DMKSCNRD 

Compute Devlce-Addr 
(CUU) from RDEVBLOK 
Addr 

R8=RDEVBL0K Addr 
R14=Retunn Addr 

R1=Conta1ns (CUU) 
value 

L — — — — — ^ 

0=Convert OK 
1=Bad Convert 

DMKSCNVD 

Compute Devlce-Addr 
(CUU) from VDEVBLOK 
Addr 

R8=VDEVBL0K Addr 
R14=Return Addr 

R1=Conta1ns (CUU) 
Value 

0=Convert OK 
1=Bad Convert 

DMKSCNAU 

Locate VMBLOK Addr 

For Specific USERID 
Value 

RO=Length of Field 

R 1 =Addr of USERID 
R14=Return Addr 

R 1 =VMBLOK Add r 

or 

R 1 Unpredlcatable 
(See CC Settings) 

CC Settings: 

| 0=VMBL0K found 
| 1=Not found; 
Reg- 1 not valid 


C P Module 


D M K S C N 


NOTE: Condition Codes Differ Between Entry Point Functions 
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SERVICE R0U1INE USAGE & PARAMETER SPEC I F * CAT I ONS 


.) 


4 4- 

Parameter Value Conversions/Extract Ions 

4 _ 4 


D M K S C N 


4 4. 4 4 4 4 4 

| C P Module | Entry Point(s) | Function(s) | Input Req'ts | Output Values | Comments | 

4 - - - 4 4- 4- 4- 4- 


D M K S C N 


NO IE: This E n t r y 
Pont was removed 
in SP3 Release. 


DMKSCNRN 

k A 

Return Full Device 
Name from RDEVBLOK 

R8=RDE VBLOK Ad dr 
R14=Return Addr 

k 

R1=Contains the 
Device Name . . 

( i e. DASD.TAPE . . ) 

»- 

CC Se 1 1 i ngs : 
O-RDEVBLOK found 

DMKSCNVN 

Return Full Device 
Name from VDEVBLOK 

R8 = VDEVBLOK Addr 

R 1 1 = VMBLOK Addr 
R14=Return Addr 

( Same as Above ) 

CC Set t i ngs : 
(Same as Above) 

DMKSCNFD 

Locate Next Non-Blank 
Field in a Command 
Input Buffer 

R9=Addr of 18-Dblwrd 
Area to Search 
R14=Return Addr 

RO=Length of Field 

R 1 =Addr of Field 

CC Se 1 1 i ngs : 
0=Data Found 
2=End of Buffer 
Reached 

D M K S C N L I 

A 

Search VMBLOKs for 
Links to MINIDISK 
(Not Val id for VM/SP3 
Release ) . 

V 4 

R 1 =RDE VBLOK Addr 
R2*VDEVBL0K Addr 

R 1 1 * VMBLOK Addr 
R14=Return Addr 

R0=No of R/0 Links 

R 1 =No of R/W Links 
R3*VMBL0K Addr for 
First R/0 User 

CC Settings: 
0=No Links Found 

1 =R/0 Links Fnd 
2=R/W Links Fnd 

>■ A 


NOTE: Condition Codes Differ Between Entry Point Functions 
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arameter Value Conversions/Extractions I 


D M K S C 0 


*■ + + + + + f 

| C P Module | Entry Polnt(s) | Functlon(s) | Input Req'ts | Output Values | Comments | 

4. + + +- — + 


4 

D M K S C 0 L I 

(. 4 

Search VMBLOKs for 
Links to MINIDISK 

(Entry Point Valid 
for VM/SP3 Only) 

»- 4 

R 1 -RDE VBLOK Addr 
R2=VDEVBL0K Addr 

R 1 1 ~ VMBLOK Addr 
R14=Return Addr 

y ^ 

R0=No of R/0 Links 

R 1 “No of R/W Links 
R3= VMBLOK Addr for 
First R/0 User 

y 

CC Set t 1 ngs : 
0=No Links Found 

1 =R/0 Links Fnd 

2 = R/W Links Fnd 

DMKSCONP 

4 

Find the Next Logical 
Path to a Device 

y 4 

R6=RCHBL0K Addr 

R7 = RCUBL0K Addr 
R8=RDEVBL0K Addr 

R6=Nex t RCHBLOK 

R7 s Nex t RCOBLOK 

y 4 

CC Sett 1 ngs : 
0=R6 8 R7 Val id 
1=No Path Found 

1- 


NOTE: Condition Codes Differ Between Entry Point Functions 
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i 

l 


+ 4. 


I Paging Manager Interface Routines | 

4 : -4- 


D M K P T R 


| C P Module | Entry Point(s) | Functlon(s) | Input Req'ts | Output Values | Comments | 

D M K P r R 

H 

-1 

-1 

H 

4 

DMKPTRAN 

Preform Vlrtual-to- 
Real Addr Translation 
(Including PAGIN Req) 

"TRANS" Macro Usage 
Rx=V1rt; Ry^Real Addrs 
( See Macros ) 

Ry=Real Addr after 
Translation or 
PAGIN Request . . 

CC Settings: 
0=Page Resident 
2=X1at1on Error 

DMKPTRFR 

Allocate a Real Page 
Frame from FREELIST 

R 1 =0 

R 1 1 =VMBL0K Addr 

SVC 8 CALL Linkage 

R7=Addr of CORTABLE 
Entry for Page 

- 

DMKPTRFT 

Place Real Page Frame 
(CORTABLE Entry) on 
FREELIST 

R7=Addr of CORTABLE 
Entry 

SVC 8 CALL Linkage 

None 

- 

DMKPTRRS 

Reset A 1 1 Virtual 
Storage Pages for 

User 

R 1 1 =Addr of VMBLOK for 
User to Reset 

SVC 8 CALL Linkage 

All Pages Placed on 
FLUSHLIST with al 1 
Inval Id bits on . . . 

Norma 1 Call is 
From DMKSCHDL 
(0-Drop Entry) 

DMKPTRLK 

Lock a Real Page Frame 
(Increase Lock count 
Field . . . ) 

R2=Real Page Addr 
R14=Return Addr 

Real Page Frame 
has been Locked. . 

N/A 

DMKPTRUL 

1 

Unlock a Real Page 
Frame (Decrement the 
Lock Count Field...) 

R2=Real Page Addr 
R14=Return Addr 

Real Page Frame 
has been Unlocked. . 

PTR003 Abend If 
Real Page Frame 
Not Locked. . . . 


4 + 4 4 + + 


NOTE: Condition Codes Differ Between Entry Point Functions 
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+ 

Request High Free CP Storage 
+ 


D M K F R E 



- - + - - 




+ - - 


+ 

+ 

Modu 1 e 

1 

- - + - - 

Entry Point(s) 

1 

Funct 1 on( s ) 

1 

Input Req ' ts 

| Output Values 

+ 

| Comments 


D M K F R E 

h 

Request Free Storage 
(Uncondl t lonal . . . ) 



RO=Length of Storage 
Requested 

R14=Return Addr 

f. j 

RO=Same 

R 1 =Addr of High 

Free Area 



DMKFRERC 

Request Free Storage 
(Conditional Request) 

RO=Length of STorage 
Requested 

R14=Return Addr 

R 1 =Addr of High 

Free Area 
(See CC ' s ) 

CC Settings 
0=Area Obtained 

1 =Area Not Ava 1 1 

D M K F R E T 

j 

Release Area of High 
Free Storage 
( Uncod 1 1 lonal . . . . ) 

V 4 

RO=Length of Area to 
be Released. 

R1=Addr of Area to be 
Released 

h H 

High Free Storage 
Block Is Released. 

h -i 

FREnnn ABEND: 

If either Len 
or Addr Fields 
are Incorrect. 


NOTE: Condition Codes Differ Between Entry Point Functions 
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Error Message 

Edit & Processing 

-4 

D M K E R M 












C P Module | 

Entry Polnt(s) 

| Functlon(s) 

i 

Input 

Req' ts 

| Output Values | Comments 


D M K E R M 

4 - 

DMKERMSG 

Construct/Edit CP 
Error Message from 
Input Parameters 

-- 4 - 

(SVC 8 
See 

-4 

CALL Linkage) 
Below: 

Same as Input 
(Error Message Sent 

According to Input) 

- + + 


RO = XXXXXXnn 

l 

4 - 


XXXXXX = Three Character Module-ID of Caller 
nn = If Not Zero, then used as Length of Data. 

= If Zero, then Reg-1 will Contain the Data 
1 tsel f . 


R 1 = Either Contains the Addr of the Data to be Inserted OR Data Itself 


R2 = YY ZZ MMMM 


YY = Option Byte: X'80' - Return to Caller (Otherwise 

Issue SVC 16. . . ) 

X'40' - Caller Area will be Released 
X'20' - Send to "Operator' Userid 
X'10' - Sound Alarm with Message 
X ' 08 ' - Delete ERRMSG Parm Field 


Action Character: 


I - Information Msg 
A - Action Msg 
R - Response Needed 
W - Warning Msg 
S - Severe System Error 


Message Number (Binary Value) 


R3 = LLaaaaaa 


LL = Length of Area to be Released 
aaaaaa = Addr of Area to be Released 


R 1 1 = Addr of VMBLOK (User will Receive Error Message) 


O 
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D M K 0 C N 


+ + + 

| C P Module | Entry Polnt(s) | Function(s) 


- + + 

| Output Values | Comments 


| Input Req'ts 
-4- 




Construct 8 Initiate 

(SVC 8 CALL Linkage) 

Same as Input 


D M K 0 C N 

DMKOCNWT 

a Console Write Req 

See Below: 

(Console Msg Sent 

- 

H 


Using Input Parms... 

>- -i 

1. 

According to Input) 

h -1 

L 4. 


Basic Input Regs: 


RO = No of Bytes In Message. 

R1 = Address of Message 
R2 * ‘'CALL" Parameters 

R3 = The Number of Double-Words to 'FRET' if . . 'DFRET ' Option 
was used; or Number of Imbedded Strt F ields-Diag-58 Only. 
R4 ■ Virt Device Addr (only if "VIRDEVAD" is Used) 


Reg-2 Parameters: 

|Byte-0|Byte-1 | Byte-2 | By te-3 | 


4. 4 

Flag 8 Line No. 
For Diag-58 Req 


4. 

IMSG-X' 800000' « The 
Message to be Sent is 
an Information Type. 


LOGDROP-X ' 80' 
LOGHOLD-X ' 40' 
PRIORITY-X ' 20' 
VMGENIO-X ' 10' 
INHIBIT-X '08 ' 
NOAUTO-X '04 ' = 
ALARM-X ' 02 ' = 
NOT IME -X '01' = 


= Logoff User 8 Drop Line 
= Logoff User 8 Hold Line 
= Priority Message 
= VM Generated I/O 
= Don't Write Console Data 
Suppress Auto CR 
Sound Console Alarm 
Suppress Time Stamp on Msg 


HI L IGHT-X ' 8000 ' 
NOTRE SP-X ' 4000 ' 


SECUSER-X ' 2000 ' 


= Highlight Msg on 3270 Device. 

* Write Response to User's Virt 
Buffer. 

= Msg Sent From Disconnected User 
VIRDEVAD-X' 1000' = Remote Virt Dev (R4=Addr) 
ERRMSG-X '0800' = Error Msg (Use VMMLEVEL Values) 
NORET-X '0400' * Return Immediately (No Walt) 
DFRET-X '0200' = " FRET " Message Buffer After Write 
OPERATOR -X '0100' * Send Message to Sys OPERATOR 


Supplemental Reference - AMDAHL CP Advanced Topics (Rev: 2:21:84) 



CP SERVICE ROUTINE USAGE & PARAMETER SPECIFICATIONS 


Page - 9 


Initiate Console Read Routine 


D M K Q C 0 


C P Module | Entry Point(s) | 


Funct 1on( s ) 


Input Req'ts 


| Output Values 

-4- 


| Comments 




Construct ft Initiate 

(SVC 8 

CALL Linkage) 

Same as Input 

D M K 0 C 0 

DMKQCORD 

a Console Read Req 
Using Input Parms . . . 

See 

Below: 

(Console Read Req 
Based Upon Input. . . ) 


Basl’c Input Regs: RO * Maximum Number of Bytes of Input Expected 
R 1 * Address of Input Buffer 
R2 * "CALL" Parameters( See Below) 

R4 = Virt Device Addr (only if " VI RDEVAD " is Used) 

Reg-2 Parameters: 

| Byte-0 1 Byte- 1 | By te-2 | Byte-3 | 

4. 


+ + 

(Not Used (<--+ 
+ + 


+ 4. 

> Byte-3 | Not Used | 

4- 4- 


Byte-1 Wi 1 1 Hold CCW 0P- 
Code for Full Screen 
Requests. 


4. 4- 

EDI T-X ' 0004 ' * Edit Line Based on Logical 
Editing Characters 

UCASE-X '0002 ' - Translate all Characters 
to Upper Case. 

= VM Generated I/O Req 
= Do Not Display Read 
Data or Spooled. 

= Remote Dev Processing 
= Write Chained to Read 
For TTY Processing. 

4. 


VMGENIO-X'OOIO' 

INHIBIT-X'0008' 

VIRDEVAD-X' 1000' 
WRTREADD-X '0001 ' 
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Schedule & Reset CP Timer Requests | 
+ 


D M K S C H 


+ + + + + + 

C P Module | Entry Point(s) | Function(s) | Input Req'ts | Output Values | Comments | 

+ + + + + 


-1 

D M K S C H 

h H 

DMKSCHST 

h H 

Establish a Clock 
Comparator Request 

b 4 

R 1 =Address of TRQBLOK 
for Timer Request. 

h 4 

R 1 =Same 

(TRQBLOK Placed on 
TRQBLOK Chain. . ) 

y 

N/A 


DMKSCHRT 

1- 4 

Delete a TRQBLOK from 
the TRQBLOK Request 
Cha 1 n ( Reset It...) 

R 1 =Address of TRQBLOK 
to be deleted. 

b H 

R 1 = Same 

(TRQBLOK Deleted 
from Cha in. . . ) 

v ^ 

NOTE : No error 
checking Is done 
by DMKSCHRT. 

i- 
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j Allocate CP Virtual Storage Page | 

-f -4- 


D M K P G U 







4 


+ 

+ 

C P Modu 1 e 

1 

Entry Point(s) 

1 

Funct 1 on( s ) 

1 

Input Req'ts 

| Output Values 

4 - 

| Comments 


-i 

DMKPGUVG 

1- H 

Allocate a CP Virtual 
Storage Page within 

CP Virtual Storage. 

h H 

R14=Return Address 

R1=Addr of Virtual 
Page ava liable 

^ 

ABEND PGU005 

If no virtual 
buffers ava 1 1 . 

DMKPGUVR 

j 

Release a CP Virtual 
Storage Page within 

CP Virtual Storage. 

L J 

R 1 =Addr of Vlrt Stor 
Page . 

R14=Return Address 

Vlrt Storage Page 
will be deallocated 

i. -i 

ABEND PGU006 

If vlrt page 
not a 1 1 oca ted . 

>- 
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Stack CPEXBLOK or IOBLOK or TRQBLOKj 

+ 


D M K S T K 


+ + 4. 4. 4. 4. 

C P Module | Entry Polnt(s) | Functlon(s) | Input Req'ts | Output Values | Comments | 

4. 4. + + 4. 


DMKSTK 

- 

f. H 

DMKSTKCP 

h H 

Stack CPEXBLOK on the 
Dispatcher's Request 
Queue . 

V H 

V 

R 1 - Addr of CPEXBLOK 
to be Stacked 

R 1 4 = Return Addr 

h H 

CPEXBLOK Stacked 

h 

1- 

H 

D M K S T K I 0 

1- H 

Stack either IOBLOK 
or TRQBLOK on the 
Dispatcher's Queue. 

R 1 =Addr of IOBLOK or 
TRQBLOK 

R14=Return Addr 

v ^ 

IOBLOK/ TRQBLOK 
Stacked 

V A 

h 


Entry Points (within DMKSTK ) Used Only for AP/MP Support: 


DMKSTKMP 

b 

Stack CPEXBLOK on the 
Current Processor's 
Queue . 

y 

R 1 =Addr of CPEXBLOK 
to be Stacked 
R14=Return Addr 

y 

CPEXBLOK Stacked 

y 

AP/MP Only 

DMKSTKOP 

Stack CPEXBLOK on the 
Other Processor's 
Dispatcher's Queue. 

R 1 =Addr of CPEXBLOK 
to be Stacked 
R14=Return Addr 

CPEXBLOK Stacked 

AP/MP Only 

DMKSTKLF 

j 

Stack CPEXBLOK LIFO 
for a Specific Pro- 
cessor's Queue. 

h H 

R 1 =Addr of CPEXBLOK 
to be Stacked 
R14=Return Addr 

k ^ 

CPEXBLOK Stacked 

AP/MP Only 

f. -- 
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+■ + 

CP Directory Management Routines 
+ + 


D M K U D R 


| C P Module | Entry Point(s) | Functlon(s) 
+ + + 


+ + + + 

| Input Req ' ts | Output Values | Comments | 

+ + + 


DMKUDRFU 

t- 

Locate the Specific 
Directory Blcok for 
User (UDIRBLOK) 

I- 

RO=Length of USERID 

R 1 = Addr of USERID 
R2=Addr of Buffer 
to Receive Block 

f 

R2=Addr of UDIRBLOK 

1- 

CC Settings: 
0=User Found 
1=Not Found 

3=1/0 Error 

DMKUDRMD 

Read User's Directory 
Account Block 
( UMACBLOK ) 

( UMACBLOK ) 1 

R1=Addr of Dlsp and 
DASD ADDR (CCPD) 
R2=Addr of Buffer 

For UMACBLOK 

R2=Addr of UMACBLOK j 

j 

CC Settings 
0=Block Read 

1 = Inva 1 Id Data 
3=1/0 Error 

DMKUDRFD 

Read a Specific Dev 
Block From User's 
Directory . 

( UDEVBLOK ) 

R0=Conta1ns Dev Addr 
R1=Addr of Dlsp and 
DASD ADDR (CCPD) 
R2=Addr of Buffer 

R2=Addr of UDEVBLOK 

CC Settings: 
0=Dev1ce Found 
1=Not Found 

3=1/0 Error 

D M K U D R X I 

Read User's IPL Block 
from Directory. 
(UIPLBLOK ) 

Rl-Addr of Dlsp and 
DASD Addr (CCPD) 
R2=Addr of BUffer 

R2=Addr of UIPLBLOK 

CC Settings: 
0=Dev1ce Found 

1 =Inval id Data 
3=1/0 Error 

DMKUDRRD 

Read Next Directory 
Block for User: 

Either - UMACBLOK or 
UDEVBLOK or UIPLBLOK 

R1=Addr of Dlsp and 
DASD Addr (CCPD) 
R2=Addr of BUffer 

R2=Addr of Block 
UMACBLOK or UDEVBLOK 
or UIPLBLOK 

CC Settings: 
0=8 lock Read 

1 =Inval Id Data 
3=1/0 Error 

DMKUDRRV 

^ 

Release Virtual Page 
Used by Directory 
Routines as Buffer 

u ^ 

R2=Addr of Page Buffer 

None 

4 

CC Settings: 
0=Page Buffer 
Released 


NOTE: Condition Codes Differ Between Entry Point Functions 
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CP Linkage & Exit Macros 


MACROS 


CALL, GOTO, RELOC and EXIT 


- 4 - 4 - 4 -- 

| Macro Format & Sample Expans1on( s ) | 


| C P Macro | 


Funct 1on( s ) 


Explalnat Ions & Comments 


CALL 


Used to Pass Control 
Another CP Module 


CALL MODULE, PARM=F leldl+F 1eld2 . 


L R 1 5 , =A ( MODULE ) 

LA R2 , F 1 el d 1 + F1eld2 
SVC 8 

or 

L R 1 5 , AMODULE 

LA R2 , F leldl 4- F1eld2 

BALR R14.R15 


MODULE = Name of Specific CP Module that Is 
to be Call ed 

AMODULE 55 The Entry Point address of the mod- 
defined within the resident portion 
of CP. 

Fleldx * Any Term That Has Been Previously 
Defined (1.e..C0PY EQU...). 

CALL Macro may be used to Invoke either a 
CP Resident or Pagable Module. An Imbedded 
Table within the CALL Macro Determines the 
Correct Type of Call Sequence; either SVC or 
BALR L 1 nkage . . ( See Example...). BALR Linkage 
Implies that the Module Is Resident AND an 
Its Entry Point Defined Within PSA. 


GOTO 


Used to Pass Control 
Without an Implied 
Return (No Return) 

>- + 


GOTO MODULE 


L R 12, AMODULE 
BR R 1 2 


MODULE = The Specific Name of the CP Module 
(CP Resident Module). 

The GOTO Macro Is used to pass control to 
CP Resident Module by using R12 as Its Base 
Register. The Address of the CP Routine must 
Defined within the PSA. Module using the 
GOTO Macro will not expect to receive control 
back from Module that was Invoked. 
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+ + 

CP Linkage & Exit Macros 
+ + 


MACROS = RELOC and EXIT 


+ + + + + + 

| C P Macro | Functlon(s) | Macro Format & Sample Expans 1on( s ) | Explalnat ions & Comments | 

4. + + + + + 


RELOC 


EXIT 


Used to Establ 1 sh 
Addressability and 
to Save Registers In 
SAVAREA Block (SVC) 


DMKXYZxx RELOC 


ENTRY DMKXYZxx 
DMKXYZxx DS OH 

USING * , R 1 2 
STM RO.R1 1 .SAVEREGS 
SL R 1 2 , =A ( DMKXYZxx-DMKXYZ ) 
USING DMKXYZ , R 12 


DMKXYZxx = Represents the Name Field on the 
Macro Line (Must be Specified..) 

The RELOC Macro Is used by each Entry point 
within a CP Module (Resident or Pagable) If 
the Module will receive control via an SVC 
Linkage (1.e...CALL Macro). 

The RELOC Macro establishes Base Reg-12 for 
the entire module as well as the specific 
Entry Point. In addition, the RELOC Macro 
will save Reg-0 -thru- Reg-11 within the 
standard SVC SAVEAREA Block (Constructed by 
DMKSVC ) . 


Used to Return Con- 
trol to a Previous 
CP Module. 

4 4 

I 


EXIT 


LM RO, R 1 1 f SAVEREGS 
SVC 12 


EXIT Macro Is used to pass control back to 
a previous CP Module (who called this Module) 

Reg-0 -thru- Reg- 1 1 are restored to their 
previous values (when the RELOC Macro was 
+ used), and an SVC 12 Is used. A Condition 
Code value can be set prior to the EXIT 
Macro Invocation (See SETCC Macro); In which 
case It will be preserved accross the SVC 
call, and can be examined by the CP Module 
that will be given control. 
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J CP Interface With Paging Manager | 
4- 4- 


MACRO = TRANS 


+ + + + 4. 4. 

| C P Macro | Functlon(s) | Macro Format & Sample Expans 1on( s ) | Exp 1 a 1 nat 1 ons & Comments | 

4. 4. + 4. 4. 4. 


TRANS 


4. + 

Used to Invoke the 
Paging Manager ( DMK 
PTRAN for Address 
T rans 1 at 1 ons . 

4. , 4. 


TRANS Rx,Ry,OPT=(Opt Ions. . ), 

A F F = , ADEX = , 1 0 E R = , 
LCTL = 


Options = BRING (Bring the Page In) 
LOCK (Lock Page Frame) 
DEFER (Control will not 

Returned until page 
1 s Ava liable) . 
SYSTEM (Use the SYSTEM 

VMBLOK for Address 
T rans 1 at 1 on ) . 
IOERETN (I/O Error Exit 

has been provided 


+ + + 

Options = Input Values used by DMKPTRAN 
for Address Translations. 

(See Descriptions. . . . ) 

AFF = Processor Affinity (AP/MP Only) 

ADEX = Address Exception Exit (Address..) 

IOER = Paging I/O Error EXIT (Address..) 

LCTL = 'NO' - No LCTL Instr Used. 

The TRANS Macro is used to affect Virtual -to- 
Real address translation, and If necessary to 
Invoke the Real Paging Manager (DMKPTRAN) to 
resolve the condition. Based upon the OPTIONS 
supplied, DMKPTRAN will pagln the page (BRING) 
lock It (LOCK) and will not return to the 
caller until completed (DEFER). 


TRANS R2,R1 , OP T=(BRING, DEFER) 

LCTL C 1 . C 1 , VMSEG 
LRA R2 , 0(0, R 1 ) 

BZ A 

LA R2 , BRING+DEFER 
L R 15 , APTRAN 
SVC 8 

A DS OH 


If SYSTEM Is specified, then the SYSTEM 
VMBLOK address will be loaded Into Reg- 11 
before Control Reg- 1 Is loaded. If LOCK Is 
specified, then a call to DMKPTRLK would be 
Inserted in the Macro Expansion. 

Registers: Rx & Ry 

Ry = Contains the VIRTUAL address to be 

translated, this would normally be Reg- 1 . 

Rx * Will contain the REAL address when 
+ DMKPTRAN has completed Its processing. 

NOTE: If other registers are used, then the 

TRANS Macro will switch them to Reg-1 & 
and Reg-2 respectively. 


Supplemental Reference - AMDAHL CP Advanced Topics (Rev: 2:21:84) 



CP SERVICE MACROS & USAGE SPECIFICA" NIS 


Pago - 17 


CP Module ABEND 


MACROS = ABEND 


+ + + + + 4. 

j C P Macro | Function(s) | Macro Format & Sample Expans 1 on( s ) | Exp 1 a 1 nat 1 ons & Comments | 

+ 4- + + + + 


ABEND 


Used to Force a CP 
Module ABEND with 
Unique Code Value 


ABEND n 


Example: ABEND 3 

Generated Code: 

xxx 1 EQU * 

SVC 0 

DC CL3'xxx' , AL1(3) 



+ 


+ 4 

n = Equals a Unique ABEND number within the 
the CP Module. 

xxx = Will be the specific CP Module iden- 
tifier (Equated to MODID+3). 

The CP ABEND Macro will generated a* Abend of 
CP using the Module Id field as further Iden- 
tification. In the example shown, the 
Abend that will be generated will be: 

xxxOOl 

If the module name was DMKABC , then the 
Abend Code will be ' ABCOOl ' . Case should 
be taken when coding several ABEND macros 
within the same CP Module, to avoid duplicate 
Abend code values. 
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+ + 

Construct Simple Message 

+ 4. 


MACRO = MSG 


4. + 4. 4. 4 4. 

| C P Macro | Functlon(s) | Macro Format ft Sample Expans 1 on( s ) | Expl a 1 nat Ions ft Comments | 

4- 4. 4- + + 4- 


M S G 


Used to Generate an 
Ini Ine message; used 
for DMKQCNWT Call 


MSG 'Message text...' 

(Sample Expansion) 

MSG 'This Is a message' 

LA RO, 17 

LA R1,=C'Th1s Is a message' 


4. 4. 

Message Text = Equals an character- type 
message that will be sent 
to a VM User's console. 

Usage Notes: The MSG macro Is used to gen- 
erate an Inline message text Including the 
length of the message (Into RO) and the add- 
ress of the message (Into R1). 

An Immediate Call can be made to DMKQCNWT with 
options Included to send the message to a VM 
user's console. 


NOTE: Reglsters-0 ft 1 are used during the 
Macro Invocation and are NOT saved. No other 
register pair can be specified on the Macro 
call. 


+ 


+ 
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+ + 

Condition Code & Timer Switching 
+ + 


MACROS = SETCC. SWTCHVM 


+ 4 4. 4 4 4 

| C P Macro | Function(s) | Macro Format & Sample Expans 1 on( s ) | Expl a 1 nat 1 ons & Comments | 

4 4 4 4 4 4 


SETCC 


SWTCHVM 


4 4 

Used to Set a Final 
Condition Code with- 
in a Module before 
an EXIT Is Made. 


SETCC | 0 | 1 | 2 | 3 | 

SETCC 0 
CLI *+1,0 

(The Condition Code Is Now Set) 

4 


1 0 1 1 1 2 1 3 1 


Represents the possible Cond- 
ition Codes that can be set 


The SETCC Macro expands In-line with an 
Instruction which will set the condition code 
based upon the value used (0, 1, 2 or 3). 

Common Usage: Prior to an EXIT Macro the 
SETCC Macro can be used to set a condition 
code. The EXIT Macro will preserve the 
condition code accross the SVC Interrupt 
and pass the setting to the CP Module who 
i nl t lated the CALL . 


Used to Switch the 
CPU timer value to 
charge another User. 

4 4 


+ 


SWTCHVM 


STPT VMTTIME-VMBLOK( R 1 1 ) 
LR R 1 1 , R 1 

SPT VMTTIME-VMBLOK( R 1 1 ) 


SWTCHVM Macro Is used to terminate the Time 
charging for the current user (Overhead Tlme- 
VMTTIME ) , who's address Is contained In R11, 
and start charging the new user (address In 
R 1 ) for overhead time (VMTTIME). 

+ In addition, the new user (R1 address) will 
be switched to R11 as the now current User. 

Registers: R11 = The address of the current 

user . 

R 1 « The address of the new user 
(which will become the 
current user ) . 


r 
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Establish CP Command Entry 

+ + 


MACRO = COMND ( For Use Within DMKCFC ) 


-1 

C P Macro | 

h H 

| Function(s) 

y + .1 

| Macro Format & Sample Expansion(s) 

1 - 

| Explalnat ions & Comments 






Used to Create a 

COMND Name , C 1 ass , M 1 n , Entry , 


COMND 

Command Entry with- 

| NCL= | . | TYPE = | 

Name = The Actual Command Name ( 8-Characters 


in DMKCFC for Comm- 


Max 1 mum A 1 1 owed ) 


and Processing. 



H 

V 


Class * The Allowable Classes Authorized for 



COMND FORCE , A+B , 3 , DMKABCXX 

the Command 1 set the condition code 


+ + Min = The Minimum Allowable Abbreviation 

I for the Command name. 


Entry = The Fully Qualified Entry Point 

Name of the Module to Process the 
Command . 

NCL=1 - Used to Allow Command Prior to LOGON 

TYPE = Either 'A' or 'V' for either ADCON 
or VCON Expansion. Default is to 
use VCON within Command entry. 

The COMND Macro is used to generate a Command 
Entry within DMKCFC (Command Look-up Module). 
Based upon the Command Entry, the allowable 
classes and minimum abbreviation fields will 
be verified by DMKCFC before the module is 
given control to process the command. 

In certain cases, the module who will receive 
control for the command, may further direct 
and invoke other CP module to process the 
command based upon cl ass- type and/or other 
options supplied on the command line. Example 
woule be the ' Query' command. 
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